//--------------------------------------------------------------------------- #include #pragma hdrstop #include "Unit2.h" #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm2 *Form2; //--------------------------------------------------------------------------- __fastcall TForm2::TForm2(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- extern int r, s; extern bool thisWorld[857][524]; extern TColor background = TColor(0x1F99D3); extern magnify; void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action) { magnify = false; } //--------------------------------------------------------------------------- void __fastcall TForm2::PaintBox1Click(TObject *Sender) { Form2->Close(); } //---------------------------------------------------------------------------